home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Bus / H-L / Invoicer.cpt / NewCust < prev    next >
Encoding:
Text File  |  1987-04-07  |  3.6 KB  |  141 lines  |  [TEXT/MSBA]
  1.   NewCust:
  2.    CLS
  3.     TEXTSIZE (24):TEXTFACE(5)
  4.     PRINT:PRINT SPC(9);"NEW CUSTOMER"
  5.     TEXTSIZE(12):TEXTFACE(0)
  6.     INPUT"Customer code ('help' for code list): ",CO$
  7.     IF CO$="help" OR CO$ = "h" THEN  ListCodes
  8.     IF CO$="quit" OR CO$="q" THEN CLS:LOAD "Open Me First",R
  9.     IF LEN(CO$)<>2 THEN BEEP: GOTO NewCust
  10.    SecondChk:
  11.      OPEN "Customers B"FOR INPUT AS #1
  12.    SecChk:
  13.      IF EOF(1)THEN CLOSE #1:GOTO NewName
  14.      INPUT #1,CD$,CN$,ts$
  15.      IF CO$=CD$ THEN CLOSE #1: TEXTFACE(1):PRINT"That code already in use … please use another":TEXTFACE(0):FOR m=1 TO 2500:NEXT:RUN
  16.      GOTO SecChk
  17.    NewName:
  18. CLS
  19.      TEXTSIZE (24):TEXTFACE(5)
  20.      PRINT:PRINT SPC(9);"NEW CUSTOMER"
  21.      TEXTSIZE(12):TEXTFACE(0)
  22.      PRINT"Code for this customer will be:";
  23.      TEXTFACE(1):PRINT TAB(30); CO$
  24.      TEXTFACE(0)
  25.      PRINT"Customer Name:";
  26.      TEXTFACE(1):PRINT TAB(30);
  27.      INPUT"",CN$
  28.      TEXTFACE(0)
  29.      PRINT"Street Address:";
  30.      TEXTFACE(1):PRINT TAB(30);
  31.      INPUT"",AD1$
  32.      TEXTFACE(0)
  33.      PRINT"City:";
  34.      TEXTFACE(1):PRINT TAB(30);
  35.      INPUT"",AD2$
  36.      TEXTFACE(0)
  37.      PRINT"State:";
  38.      TEXTFACE(1):PRINT TAB(30);
  39.      INPUT"",AD3$
  40.      TEXTFACE(0)
  41.      PRINT"Zip Code:";
  42.      TEXTFACE(1):PRINT TAB(30);
  43.      INPUT"",zp$
  44.      TEXTFACE (0)
  45.      
  46. PRINT
  47.      TaxQues:
  48.        TEXTFACE (0)
  49.        PRINT"Is customer tax-exempt (y/n)?";
  50.        TEXTFACE(1):PRINT TAB(30);
  51.        INPUT"",ts$
  52.        IF ts$ = "y" THEN SetBal
  53.        IF ts$ <> "n" THEN TaxQues
  54.        
  55.      SetBal:
  56.        TEXTFACE(0)
  57.        PRINT:PRINT"Balance forward:";
  58.        TEXTFACE(1):PRINT TAB(30);
  59.        INPUT"",BF
  60.        TEXTFACE(0)
  61.        GOTO SecTitle
  62.        
  63.     PrintToDisk:
  64.      OPEN CO$ FOR OUTPUT AS #1
  65.      PRINT #1,BF
  66.      CLOSE #1
  67.       
  68.      OPEN "Customers A" FOR APPEND AS #1
  69.      PRINT #1,CO$;",";CN$;",";AD1$;",";AD2$;",";AD3$;",";zp$;",";ts$
  70.      CLOSE #1
  71.      OPEN "Customers B" FOR APPEND AS #1
  72.      PRINT #1,CO$;",";CN$;",";ts$
  73.      CLOSE #1
  74.      GOTO YourChoice
  75.   SecTitle:
  76.      CLS
  77.      
  78.     TEXTSIZE (24):TEXTFACE(5)
  79.     PRINT:PRINT SPC(9);"NEW CUSTOMER"
  80.     PRINT
  81.     TEXTSIZE(14):TEXTFACE(1)
  82.     PRINT SPC(2); CN$
  83.     PRINT SPC(2);AD1$
  84.     PRINT SPC(2);AD2$;", ";AD3$;"  ";
  85.     PRINT zp$
  86.  
  87.     PRINT:PRINT:PRINT SPC(2);
  88.     
  89.     TEXTSIZE (14)
  90.     PRINT"Balance forward: ";
  91.     PRINT USING "$$###.##";BF;
  92.     PRINT TAB(35);
  93.     PRINT"Tax exempt:   ";ts$
  94.     
  95.   IzzitOK:
  96.     WINDOW 3,"",(25,285)-(476,330),-3
  97.     BUTTON 1,1,"OK",(55,10)-(130,35),1
  98.     BUTTON 2,1,"again",(329,10)-(404,35),1
  99.     WHILE DIALOG(0)<>1:WEND
  100.     ButtonPushed =DIALOG(1)
  101.     IF ButtonPushed =1 THEN WINDOW CLOSE 3:GOTO PrintToDisk
  102.     IF ButtonPushed =2 THEN RUN
  103.  
  104.   YourChoice:
  105.     WINDOW 3,"",(25,285)-(476,330),-3
  106.     BUTTON 1,1,"another",(55,10)-(130,35),1
  107.     BUTTON 2,1,"invoice",(192,10)-(267,35),1
  108.     BUTTON 3,1,"quit",(329,10)-(404,35),1
  109.     WHILE DIALOG(0)<>1:WEND
  110.     ButtonPushed =DIALOG(1)
  111.     IF ButtonPushed =1 THEN RUN
  112.     IF ButtonPushed =2 THEN LOAD "Invoicer", R
  113.     IF ButtonPushed =3 THEN WINDOW OUTPUT 1:CLS:WINDOW CLOSE 2:WINDOW CLOSE 3:LOAD "Open Me First",R
  114.  
  115.   ListCodes:
  116. CLS
  117.   Lst:
  118.      OPEN "Customers B" FOR INPUT AS #1
  119.      WINDOW 2,"",(25,50)-(476,280),3
  120.   OpFile:
  121.      TEXTFACE(1)
  122.      IF EOF(1) THEN CLOSE #1:TEXTFACE(0):GOTO NewWndw
  123.      INPUT #1,CD$,CN$,ts$
  124.      PRINT CD$;
  125.      PRINT" - ";CN$
  126.      GOTO OpFile
  127.  
  128.   NewWndw:
  129.  WINDOW 3,"",(25,285)-(476,330),-3
  130.     BUTTON 1,1,"again",(55,10)-(130,35),1
  131.     BUTTON 2,1,"enter info",(192,10)-(267,35),1
  132.     BUTTON 3,1,"quit",(329,10)-(404,35),1
  133.       WHILE DIALOG(0)<>1:WEND
  134.       ButtonPushed = DIALOG(1)
  135.       IF ButtonPushed = 1 THEN Lst
  136.       IF ButtonPushed  = 2 THEN  WINDOW CLOSE 2:WINDOW CLOSE 3:RUN
  137.       IF ButtonPushed  = 3 THEN LOAD "Open Me First",R
  138.  
  139.  
  140.  
  141.